home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / sh6x / sh62a.d64 / file printer (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  64 lines
  1. 10 POKE 53280,0:POKE 53281,1:PRINT CHR$(30)CHR$(14)CHR$(147)
  2. 20 PRINT"   [196]ER [196]ISKETTENINHALT WIRD IN [203]LEIN-"
  3. 30 PRINT
  4. 40 PRINT" SCHRIFT AUF EINEM [196]RUCKER AUSGEGEBEN."
  5. 50 PRINT"    [194]ITTE "CHR$(18)"'[196]RUCKER'"CHR$(146)" EINSCHALTEN
  6. 60 [153]
  7. 70 [153]"       UND (null)ASTE DRUECKEN !
  8. 80 POKE198,0
  9. 90 GETA$:M=M+1:IFM=10THENM=0
  10. 100 PRINTMID$("[146]",M/5+1,1);
  11. 110 PRINT"[203]LAUS [199]RABIETZ,[193]M [215]EINBERG14,3108 [215]INSEN"
  12. 120 PRINT"             [198]ILE [208]RINTER               "
  13. 130 IFA$=""GOTO90
  14. 140 PRINT"       [206]AECHSTE [196]ISKETTE - "CHR$(18)"'[198]7'"
  15. 150 PRINT
  16. 160 PRINT"                    [197]NDE - "CHR$(18)"'[198]1'"
  17. 170 POKE198,0
  18. 180 GETC$:IFC$=CHR$(136)THEN210
  19. 190 IFC$=CHR$(133)THENPRINT"[147]":END
  20. 200 GOTO180
  21. 210 DIM F$(152)
  22. 220 DIM G$(152)
  23. 230 PRINT CHR$(147)CHR$(31)CHR$(142)
  24. 240 OPEN9,8,0,"$"
  25. 250 GET#9,A$,B$:N0=0
  26. 260 GET#9,A$,B$:Z0=0:X$=""
  27. 270 IFST<>0THEN350
  28. 280 GET#9,A$,B$
  29. 290 N$=CHR$(0)
  30. 300 G$=RIGHT$("      "+STR$(ASC(A$+N$)+ASC(B$+N$)*256),6)
  31. 310 GET#9,A$:IFA$=CHR$(34)THENZ0=SGN(Z0+1)
  32. 320 IFA$=""THENN0=N0+1:N1=N0-1:GOSUB360:GOTO260
  33. 330 IFZ0=1THENG$=G$+A$
  34. 340 GOTO310
  35. 350 CLOSE9:GOTO470
  36. 360 IFN0=1THEN440
  37. 370 IFLEN(G$)=6THEN460
  38. 380 AA$="":FORI=8TO24:C$=MID$(G$,I,1):IFC$=CHR$(34)THENI=24:GOTO400
  39. 390 AA$=AA$+C$
  40. 400 NEXTI:G$(N1)=LEFT$(AA$+"                  ",18)+LEFT$(G$,6)+"  "+ID$
  41. 410 H1$=MID$(G$(N1),22,3):H2$=LEFT$(G$(N1),16)
  42. 420 H$=H1$+" "+H2$+" "+MID$(G$,26,3):PRINT"       "H$:A=A+1:F$(A)=H$:PRINTCHR$(142)
  43. 430 RETURN
  44. 440 CC$=RIGHT$(G$,24):ID$=MID$(CC$,20,2):PRINT"       ";CC$:RETURN
  45. 450 PRINT
  46. 460 PRINT"    ";G$;" BLOECKE FREI.":CC$=CC$+G$+" BLOECKE FREI.  "+DA$:RETURN
  47. 470 OPEN1,4
  48. 480 PRINT#1:CMD1 :PRINTCHR$(27)CHR$(15);:PRINTCHR$(27)"S"CHR$(0);
  49. 490 PRINT#1,CHR$(27)"A"CHR$(5);"NAME : ";MID$(CC$,2,16);
  50. 500 PRINT#1,"     NR. : ";ID$;
  51. 510 PRINT#1,"      "MID$(CC$,28,16)
  52. 520 PRINT#1,"==============================================================";
  53. 530 PRINT#1,"================="
  54. 540 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=2THENA=A+3:GOTO560
  55. 550 IFA/3<>INT(A/3)ANDA-3*INT(A/3)=1THENA=A+3:GOTO560
  56. 560 FORX=1TOINT(A/3)
  57. 570 PRINT#1," "F$(X);"   ";
  58. 580 PRINT#1,F$(X+INT(A/3));"   ";
  59. 590 PRINT#1,F$(X+2*INT(A/3))
  60. 600 NEXT:GOTO620
  61. 610 PRINT#1,MID$(CC$,28,16)
  62. 620 CLOSE1
  63. 630 PRINTCHR$(30)CHR$(14)CHR$(147):RUN140
  64.